home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].7z / ImageMaster RT v1.50b (1994)(Black Belt Systems)(Disk 6 of 7)[HD].adf / piarc.lzh.parta / neg.rexx < prev    next >
OS/2 REXX Batch file  |  1994-03-17  |  2KB  |  43 lines
  1. /*
  2.  * NEG.rexx   a simple P.I. module intended as an example for developers
  3.  *
  4.  *  Written by: Barry Chalmers
  5.  * Last Update: January 1st, 1992
  6.  *    Revision: 1.2
  7.  *         For: Black Belt Systems image processing series IM, IM F/c, and IP.
  8.  */
  9.  
  10. /* 
  11.  * Always include this block of code which loads the libraries:
  12.  */
  13. if ~show('L',"rexxsupport.library") then do
  14.   if addlib('rexxsupport.library',0,-30,0) then do
  15.       /* everything's ok */
  16.     end;
  17.   else do
  18.     say 'We Have A Library Problem, Unable To Load "rexxsupport.library"';
  19.     say 'Cannot operate this module without the library - sorry!';
  20.     exit 10;
  21.     end;
  22.   end;
  23.  
  24.  
  25. prtnme = 'IM_Port';
  26.  
  27. /*
  28.  * The function-specific portion of the script begins here:
  29.  * --------------------------------------------------------
  30.  */
  31.  
  32. address(prtnme);      /* communicate with image processor we found           */
  33. 'area';               /* have user specify the area they want to affect      */
  34. options results;      /* allow return values from command we're about to do  */
  35. 'jackin';             /* attach to image processor's internal data structure */
  36. jackptr = result;     /* fetch the return value from the std ARexx return    */
  37. options;              /* disallow return values from further commands        */
  38. address command;      /* communicate with Amiga SHELL, we're going to use it */
  39. 'cmpi:neg '||jackptr; /* run the SHELL command that does the actual work     */
  40. address(prtnme);      /* communicate with image processor again              */
  41. 'redraw';             /* redraw the screen so user sees results of command   */
  42. exit 0;               /* Done. That's all there is to most PI Modules!       */
  43.